home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / rga.arc / RGA1.FRM (.txt) < prev   
Visual Basic Form  |  1991-07-06  |  5KB  |  91 lines
  1. Form1
  2. I Love WinApps!
  3. Form1
  4. FileMenuNull
  5. &File
  6. FileMenuAbout
  7. &About
  8. FileMenuFiller1
  9. FileMenuExit
  10. E&xit
  11. Form_Click
  12. Form_LinkClose
  13. @    Form_Load
  14.     Form_Cick
  15. FontMax
  16. FontNo
  17. Screen
  18.     FontCount
  19. FontName
  20. Fonts*
  21. FontSize
  22. Form_Resize
  23. Font_Click
  24. AutoRedraw
  25. TRUEX
  26. CurrentX
  27. ScaleWidth
  28. CurrentYg
  29. ScaleHeight
  30. FileMenuAbout_Click
  31. TITLE
  32. FileMenuExit_Click
  33.     FirstTime
  34. FirstTimeThrough
  35. FALSE
  36. ResizeOnly
  37. Index
  38. ProposedFontUC
  39. ProposedFontName
  40.  This has variables germane to multiple procedures in thee
  41.  form. Otherwise, Visual Basic would have each form having
  42.  its own variables.i
  43. Form_Click
  44.  This is invoked every time a mouse click is in the window.
  45.  Clear the screen.
  46.  Don't switch fonts if we're only redrawing.
  47.  Is not the first time through?l
  48.  Get number of fonts currently defined for the screen.
  49.  (The number of screen fonts can change on the fly!)
  50.  This begins a loop that obtains candidate fonts, andd
  51.  throws out the ones that aren't text!
  52.  Come up with a random font number.x
  53.  Get the font name.d
  54.  Convert the font name to upper case for matching ease.
  55.  I'm not going to let this loop exit on three cases:
  56.    DINGBAT fonts, SYMBOL fonts, or the DIGITAL (Clock) font.
  57. DINGBAT"
  58. SYMBOL
  59. DIGITAL"
  60.  Set the font name to the proposed font name.L
  61.  Or, is this the first time through?
  62.  First time through - use the first font (SYSTEM, usually)..
  63.  Set the font size to 12 points.
  64.  Determine half the text width..
  65.  Determine half the text height.
  66.  Set the X, Y screen position to center the text. 
  67.  Print the text "I Love WinApps!"c
  68.  Indicate that the resize is finished.
  69.  Indicate that this isn't the first time through. 
  70. Form_Load
  71.  This gets executed when the module loads:
  72.  Seed the random number generator.
  73.  Indicate that the form is to automatically redraw.
  74.  Indicate that this is the first time through.
  75.  Simulate the initial click to bring up the text.w
  76. Form_Resize
  77.  This gets entered if the user's been playing with thatt
  78.  big fat border and resizing this puppy!
  79.  Clear the screen.
  80.  Indicate that only a resize operation is to take place.
  81.  Simulate a form click and let that finish the job!l
  82. FileMenuAbout_Click
  83.  This runs when the user requests "File, About":
  84.  Build a message.h
  85.  Program
  86. by Charles L. Perrin
  87.  Display the message.s
  88. FileMenuExit_Click
  89.  This executes when the user does the Exit request:
  90.  and that's all, folks! 
  91.